object frmFileList: TfrmFileList Left = 284 Top = 163 Width = 377 Height = 386 HelpContext = 5 Caption = 'Edit List of Files' Color = clBtnFace Constraints.MinHeight = 386 Constraints.MinWidth = 355 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poOwnerFormCenter ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown DesignSize = ( 369 359) PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 132 Top = 335 Width = 75 Height = 21 Anchors = [akRight, akBottom] Caption = '&Ok' ModalResult = 1 TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 212 Top = 335 Width = 75 Height = 21 Anchors = [akRight, akBottom] Caption = '&Apply' Default = True TabOrder = 3 OnClick = Button2Click end object Button3: TButton Left = 292 Top = 335 Width = 75 Height = 21 Anchors = [akRight, akBottom] Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 4 OnClick = Button3Click end object TreeView1: TTreeView Left = 0 Top = 26 Width = 197 Height = 305 Anchors = [akLeft, akTop, akRight, akBottom] DragMode = dmAutomatic HideSelection = False Images = frmCDLabMain.ImageList1 Indent = 19 MultiSelect = True MultiSelectStyle = [msControlSelect, msShiftSelect, msVisibleOnly] PopupMenu = PopupMenu1 TabOrder = 0 OnChange = TreeView1Change OnDragDrop = TreeView1DragDrop OnDragOver = TreeView1DragOver OnEditing = TreeView1Editing OnExit = TreeView1Exit OnMouseDown = TreeView1MouseDown end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 369 Height = 26 AutoSize = True Caption = 'ToolBar1' EdgeBorders = [ebTop, ebBottom] Flat = True Images = frmCDLabMain.ImageList1 ParentShowHint = False ShowHint = True TabOrder = 5 object ToolButton1: TToolButton Left = 0 Top = 0 Action = ANew end object ToolButton2: TToolButton Left = 23 Top = 0 Action = ARename end object ToolButton3: TToolButton Left = 46 Top = 0 Action = ADelete end object ToolButton4: TToolButton Left = 69 Top = 0 Width = 8 Caption = 'ToolButton4' ImageIndex = 16 Style = tbsDivider end object ToolButton10: TToolButton Left = 77 Top = 0 Action = AMoveUp end object ToolButton11: TToolButton Left = 100 Top = 0 Action = AMoveDown end object ToolButton9: TToolButton Left = 123 Top = 0 Width = 8 Caption = 'ToolButton9' ImageIndex = 0 Style = tbsSeparator end object ToolButton8: TToolButton Left = 131 Top = 0 Action = AReadDrive end end object Panel1: TPanel Left = 198 Top = 24 Width = 171 Height = 307 Anchors = [akTop, akRight, akBottom] BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object RadioGroup1: TRadioGroup Left = 8 Top = 8 Width = 157 Height = 69 Hint = 'Click to change item type' Caption = ' Node Type ' Items.Strings = ( 'Folder / Group' 'File / Item') TabOrder = 0 OnClick = RadioGroup1Click end object GroupBox1: TGroupBox Left = 8 Top = 80 Width = 157 Height = 221 Caption = ' Settings ' TabOrder = 1 object Bevel2: TBevel Left = 8 Top = 72 Width = 137 Height = 45 Shape = bsBottomLine end object Bevel1: TBevel Left = 8 Top = 16 Width = 137 Height = 53 Shape = bsBottomLine end object Label1: TLabel Left = 12 Top = 44 Width = 56 Height = 13 Caption = 'Max. levels:' end object Label2: TLabel Left = 12 Top = 76 Width = 43 Height = 13 Caption = 'Columns:' end object SpeedButton1: TSpeedButton Left = 12 Top = 168 Width = 129 Height = 22 Hint = 'Change folder / group font' Caption = 'Folder / Group font' OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 12 Top = 192 Width = 129 Height = 22 Hint = 'Change file / item font' Caption = 'File / Item font' OnClick = SpeedButton1Click end object Bevel3: TBevel Left = 8 Top = 116 Width = 137 Height = 45 Shape = bsBottomLine end object CheckBox1: TCheckBox Left = 10 Top = 20 Width = 131 Height = 17 Hint = 'Read only directories' Alignment = taLeftJustify Caption = 'Only directories:' TabOrder = 0 OnClick = CheckBox1Click end object SpinEdit1: TSpinEdit Left = 100 Top = 40 Width = 45 Height = 22 Hint = 'Max. number of levels to read (0 = only root)' MaxValue = 7 MinValue = 0 TabOrder = 1 Value = 3 OnChange = SpinEdit1Change end object SpinEdit2: TSpinEdit Left = 100 Top = 72 Width = 45 Height = 22 Hint = 'Numbers of columns to show' MaxValue = 5 MinValue = 1 TabOrder = 2 Value = 3 end object CheckBox2: TCheckBox Left = 10 Top = 96 Width = 131 Height = 17 Hint = 'Draw column separator' Alignment = taLeftJustify Caption = 'Column separators:' TabOrder = 3 end object CheckBox3: TCheckBox Left = 10 Top = 120 Width = 131 Height = 17 Hint = 'Draw list on front side' Alignment = taLeftJustify Caption = 'Draw on front side:' TabOrder = 4 end object CheckBox4: TCheckBox Left = 10 Top = 140 Width = 131 Height = 17 Hint = 'Draw list on back side' Alignment = taLeftJustify Caption = 'Draw on back side:' TabOrder = 5 end end end object ActionList1: TActionList Images = frmCDLabMain.ImageList1 Left = 92 Top = 72 object ANew: TAction Caption = 'New' Hint = 'New item' ImageIndex = 0 ShortCut = 16429 OnExecute = ANewExecute end object ARename: TAction Caption = 'Rename' Hint = 'Rename item' ImageIndex = 29 ShortCut = 113 OnExecute = ARenameExecute end object ADelete: TAction Caption = 'Delete' Hint = 'Delete item(s)' ImageIndex = 15 ShortCut = 16430 OnExecute = ADeleteExecute end object AReadDrive: TAction Caption = 'Read drive/CDDB' Hint = 'Read drive/CDDB' ImageIndex = 26 OnExecute = AReadDriveExecute end object AMoveUp: TAction Caption = 'Move Up' Hint = 'Move item up' ImageIndex = 20 OnExecute = AMoveUpExecute end object AMoveDown: TAction Caption = 'Move Down' Hint = 'Move item down' ImageIndex = 21 OnExecute = AMoveUpExecute end object ASelectAll: TAction Caption = 'Select &All' Hint = 'Select all' ShortCut = 16449 OnExecute = ASelectAllExecute end end object PopupMenu1: TPopupMenu Left = 48 Top = 100 object New1: TMenuItem Action = ANew end object Rename1: TMenuItem Action = ARename end object Delete1: TMenuItem Action = ADelete end object N1: TMenuItem Caption = '-' end object SelectAll1: TMenuItem Action = ASelectAll end end object FD: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 88 Top = 128 end end